Likeability

Which function

https://www.datasciencemadesimple.com/which-function-in-r/

#Array Indexing https://rspatial.org/intr/4-indexing.html

rowMeans Function

https://www.programmingr.com/tutorial/rowmeans-in-r/

library(data.table)
library(plotly)

likeability <- fread("likeability_formatted2.csv")


# JITAI 1

# Numeric
jitai_1_numeric <- likeability[ which(likeability$JITAI_TYPE=='1' & likeability$NUMERIC_TYPE!='Numeric'), 4:8]

jitai_1_numeric_means <- rowMeans(jitai_1_numeric, na.rm = TRUE)

mean_jitai_1_numeric <- round(mean(jitai_1_numeric_means), digits = 2)


# Non-Numeric
jitai_1_non_numeric <- likeability[ which(likeability$JITAI_TYPE=='1' & likeability$NUMERIC_TYPE!='Non-numeric'), 4:8]

jitai_1_non_numeric_means <- rowMeans(jitai_1_non_numeric, na.rm = TRUE)

mean_jitai_1_non_numeric <- mean(jitai_1_non_numeric_means)


# JITAI 2 

# Numeric
jitai_2_numeric <- likeability[ which(likeability$JITAI_TYPE=='2' & likeability$NUMERIC_TYPE!='Numeric'), 4:8]

jitai_2_numeric_means <- rowMeans(jitai_2_numeric, na.rm = TRUE)

mean_jitai_2_numeric <- round(mean(jitai_2_numeric_means), digits = 2)

# Non numeric
jitai_2_non_numeric <- likeability[ which(likeability$JITAI_TYPE=='2' & likeability$NUMERIC_TYPE!='Non-numeric'), 4:8]

jitai_2_non_numeric_means <- rowMeans(jitai_2_non_numeric, na.rm = TRUE)

mean_jitai_2_non_numeric <- round(mean(jitai_2_non_numeric_means), 2)


# Numeric v. Non Numeric

# Numeric
jitai_numeric <- likeability[ which( likeability$NUMERIC_TYPE!='Numeric'), 4:8]

jitai_numeric_means <- rowMeans(jitai_numeric, na.rm = TRUE)

mean_jitai_numeric <- round(mean(jitai_numeric_means), digits = 2)

# Non Numeric
jitai_non_numeric <- likeability[ which( likeability$NUMERIC_TYPE!='Non-numeric'), 4:8]

jitai_non_numeric_means <- rowMeans(jitai_non_numeric, na.rm = TRUE)

mean_jitai_non_numeric <- round(mean(jitai_non_numeric_means), digits = 2)





# Plot
# https://plotly.com/r/bar-charts/

if (TRUE) {
MessageTypes <- c("JITAI 1", "JITAI 2")
Numeric <- c(mean_jitai_1_numeric, mean_jitai_2_numeric)
Non_Numeric <- c(mean_jitai_1_non_numeric, mean_jitai_2_non_numeric)
data <- data.frame(MessageTypes, Numeric, Non_Numeric)

fig <- plot_ly(
  data, 
  x = ~MessageTypes, 
  y = ~Numeric, 
  type = 'bar', 
  name = 'Numeric',
  text = ~Numeric, 
  textposition = 'auto'
  )

fig <- fig %>% add_trace(
  y = ~Non_Numeric, 
  name = 'Non Numeric',  
  text = ~Non_Numeric, 
  textposition = 'auto'
)

fig <- fig %>% layout(
  title = "Numeric v. Non-Numeric", 
  yaxis = list(title = 'Likeability', 
  range = c(0, 5)), 
  barmode = 'group'
)

fig





}


if (TRUE) {
  table <- data.frame(x = c("Numeric", "Non Numeric"),
                    y = c(mean_jitai_numeric, mean_jitai_non_numeric))
  table$x <- factor(table$x, levels = c(as.character(table$x)))
  
  fig <- plot_ly(
      data=table,
      x = ~x,
      y = ~y,
      name = "JITAI",
      type = "bar",
      text = ~y, 
      textposition = 'auto'
  )

  fig <- fig %>% layout(title = "Numeric v. Non-Numeric", xaxis = list( title = "Numeric Type"), yaxis = list( title = "Likeability", range = c(0, 5)))
  
  fig
  
}

NA

Add a new chunk by clicking the Insert Chunk button on the toolbar or by pressing Cmd+Option+I.

When you save the notebook, an HTML file containing the code and output will be saved alongside it (click the Preview button or press Cmd+Shift+K to preview the HTML file).

The preview shows you a rendered HTML copy of the contents of the editor. Consequently, unlike Knit, Preview does not run any R code chunks. Instead, the output of the chunk when it was last run in the editor is displayed.

LS0tCnRpdGxlOiAiSklUQUkgSENJIEFuYWx5c2lzIgpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCkxpa2VhYmlsaXR5CgoKIyBXaGljaCBmdW5jdGlvbgpodHRwczovL3d3dy5kYXRhc2NpZW5jZW1hZGVzaW1wbGUuY29tL3doaWNoLWZ1bmN0aW9uLWluLXIvCgojQXJyYXkgSW5kZXhpbmcgCmh0dHBzOi8vcnNwYXRpYWwub3JnL2ludHIvNC1pbmRleGluZy5odG1sCgojIHJvd01lYW5zIEZ1bmN0aW9uCmh0dHBzOi8vd3d3LnByb2dyYW1taW5nci5jb20vdHV0b3JpYWwvcm93bWVhbnMtaW4tci8KCgpgYGB7cn0KbGlicmFyeShkYXRhLnRhYmxlKQpsaWJyYXJ5KHBsb3RseSkKCmxpa2VhYmlsaXR5IDwtIGZyZWFkKCJsaWtlYWJpbGl0eV9mb3JtYXR0ZWQyLmNzdiIpCgojIEpJVEFJIDEKCiMgTnVtZXJpYwpqaXRhaV8xX251bWVyaWMgPC0gbGlrZWFiaWxpdHlbIHdoaWNoKGxpa2VhYmlsaXR5JEpJVEFJX1RZUEU9PScxJyAmIGxpa2VhYmlsaXR5JE5VTUVSSUNfVFlQRSE9J051bWVyaWMnKSwgNDo4XQoKaml0YWlfMV9udW1lcmljX21lYW5zIDwtIHJvd01lYW5zKGppdGFpXzFfbnVtZXJpYywgbmEucm0gPSBUUlVFKQoKbWVhbl9qaXRhaV8xX251bWVyaWMgPC0gcm91bmQobWVhbihqaXRhaV8xX251bWVyaWNfbWVhbnMpLCBkaWdpdHMgPSAyKQoKCiMgTm9uLU51bWVyaWMKaml0YWlfMV9ub25fbnVtZXJpYyA8LSBsaWtlYWJpbGl0eVsgd2hpY2gobGlrZWFiaWxpdHkkSklUQUlfVFlQRT09JzEnICYgbGlrZWFiaWxpdHkkTlVNRVJJQ19UWVBFIT0nTm9uLW51bWVyaWMnKSwgNDo4XQoKaml0YWlfMV9ub25fbnVtZXJpY19tZWFucyA8LSByb3dNZWFucyhqaXRhaV8xX25vbl9udW1lcmljLCBuYS5ybSA9IFRSVUUpCgptZWFuX2ppdGFpXzFfbm9uX251bWVyaWMgPC0gbWVhbihqaXRhaV8xX25vbl9udW1lcmljX21lYW5zKQoKCiMgSklUQUkgMiAKCiMgTnVtZXJpYwpqaXRhaV8yX251bWVyaWMgPC0gbGlrZWFiaWxpdHlbIHdoaWNoKGxpa2VhYmlsaXR5JEpJVEFJX1RZUEU9PScyJyAmIGxpa2VhYmlsaXR5JE5VTUVSSUNfVFlQRSE9J051bWVyaWMnKSwgNDo4XQoKaml0YWlfMl9udW1lcmljX21lYW5zIDwtIHJvd01lYW5zKGppdGFpXzJfbnVtZXJpYywgbmEucm0gPSBUUlVFKQoKbWVhbl9qaXRhaV8yX251bWVyaWMgPC0gcm91bmQobWVhbihqaXRhaV8yX251bWVyaWNfbWVhbnMpLCBkaWdpdHMgPSAyKQoKIyBOb24gbnVtZXJpYwpqaXRhaV8yX25vbl9udW1lcmljIDwtIGxpa2VhYmlsaXR5WyB3aGljaChsaWtlYWJpbGl0eSRKSVRBSV9UWVBFPT0nMicgJiBsaWtlYWJpbGl0eSROVU1FUklDX1RZUEUhPSdOb24tbnVtZXJpYycpLCA0OjhdCgpqaXRhaV8yX25vbl9udW1lcmljX21lYW5zIDwtIHJvd01lYW5zKGppdGFpXzJfbm9uX251bWVyaWMsIG5hLnJtID0gVFJVRSkKCm1lYW5faml0YWlfMl9ub25fbnVtZXJpYyA8LSByb3VuZChtZWFuKGppdGFpXzJfbm9uX251bWVyaWNfbWVhbnMpLCAyKQoKCiMgTnVtZXJpYyB2LiBOb24gTnVtZXJpYwoKIyBOdW1lcmljCmppdGFpX251bWVyaWMgPC0gbGlrZWFiaWxpdHlbIHdoaWNoKCBsaWtlYWJpbGl0eSROVU1FUklDX1RZUEUhPSdOdW1lcmljJyksIDQ6OF0KCmppdGFpX251bWVyaWNfbWVhbnMgPC0gcm93TWVhbnMoaml0YWlfbnVtZXJpYywgbmEucm0gPSBUUlVFKQoKbWVhbl9qaXRhaV9udW1lcmljIDwtIHJvdW5kKG1lYW4oaml0YWlfbnVtZXJpY19tZWFucyksIGRpZ2l0cyA9IDIpCgojIE5vbiBOdW1lcmljCmppdGFpX25vbl9udW1lcmljIDwtIGxpa2VhYmlsaXR5WyB3aGljaCggbGlrZWFiaWxpdHkkTlVNRVJJQ19UWVBFIT0nTm9uLW51bWVyaWMnKSwgNDo4XQoKaml0YWlfbm9uX251bWVyaWNfbWVhbnMgPC0gcm93TWVhbnMoaml0YWlfbm9uX251bWVyaWMsIG5hLnJtID0gVFJVRSkKCm1lYW5faml0YWlfbm9uX251bWVyaWMgPC0gcm91bmQobWVhbihqaXRhaV9ub25fbnVtZXJpY19tZWFucyksIGRpZ2l0cyA9IDIpCgoKCgoKIyBQbG90CiMgaHR0cHM6Ly9wbG90bHkuY29tL3IvYmFyLWNoYXJ0cy8KCmlmIChUUlVFKSB7Ck1lc3NhZ2VUeXBlcyA8LSBjKCJKSVRBSSAxIiwgIkpJVEFJIDIiKQpOdW1lcmljIDwtIGMobWVhbl9qaXRhaV8xX251bWVyaWMsIG1lYW5faml0YWlfMl9udW1lcmljKQpOb25fTnVtZXJpYyA8LSBjKG1lYW5faml0YWlfMV9ub25fbnVtZXJpYywgbWVhbl9qaXRhaV8yX25vbl9udW1lcmljKQpkYXRhIDwtIGRhdGEuZnJhbWUoTWVzc2FnZVR5cGVzLCBOdW1lcmljLCBOb25fTnVtZXJpYykKCmZpZyA8LSBwbG90X2x5KAogIGRhdGEsIAogIHggPSB+TWVzc2FnZVR5cGVzLCAKICB5ID0gfk51bWVyaWMsIAogIHR5cGUgPSAnYmFyJywgCiAgbmFtZSA9ICdOdW1lcmljJywKICB0ZXh0ID0gfk51bWVyaWMsIAogIHRleHRwb3NpdGlvbiA9ICdhdXRvJwogICkKCmZpZyA8LSBmaWcgJT4lIGFkZF90cmFjZSgKICB5ID0gfk5vbl9OdW1lcmljLCAKICBuYW1lID0gJ05vbiBOdW1lcmljJywgIAogIHRleHQgPSB+Tm9uX051bWVyaWMsIAogIHRleHRwb3NpdGlvbiA9ICdhdXRvJwopCgpmaWcgPC0gZmlnICU+JSBsYXlvdXQoCiAgdGl0bGUgPSAiTnVtZXJpYyB2LiBOb24tTnVtZXJpYyIsIAogIHlheGlzID0gbGlzdCh0aXRsZSA9ICdMaWtlYWJpbGl0eScsIAogIHJhbmdlID0gYygwLCA1KSksIAogIGJhcm1vZGUgPSAnZ3JvdXAnCikKCmZpZwoKCgoKCn0KCmlmIChUUlVFKSB7CiAgdGFibGUgPC0gZGF0YS5mcmFtZSh4ID0gYygiTnVtZXJpYyIsICJOb24gTnVtZXJpYyIpLAogICAgICAgICAgICAgICAgICAgIHkgPSBjKG1lYW5faml0YWlfbnVtZXJpYywgbWVhbl9qaXRhaV9ub25fbnVtZXJpYykpCiAgdGFibGUkeCA8LSBmYWN0b3IodGFibGUkeCwgbGV2ZWxzID0gYyhhcy5jaGFyYWN0ZXIodGFibGUkeCkpKQogIAogIGZpZyA8LSBwbG90X2x5KAogICAgICBkYXRhPXRhYmxlLAogICAgICB4ID0gfngsCiAgICAgIHkgPSB+eSwKICAgICAgbmFtZSA9ICJKSVRBSSIsCiAgICAgIHR5cGUgPSAiYmFyIiwKICAgICAgdGV4dCA9IH55LCAKICAgICAgdGV4dHBvc2l0aW9uID0gJ2F1dG8nCiAgKQoKICBmaWcgPC0gZmlnICU+JSBsYXlvdXQodGl0bGUgPSAiTnVtZXJpYyB2LiBOb24tTnVtZXJpYyIsIHhheGlzID0gbGlzdCggdGl0bGUgPSAiTnVtZXJpYyBUeXBlIiksIHlheGlzID0gbGlzdCggdGl0bGUgPSAiTGlrZWFiaWxpdHkiLCByYW5nZSA9IGMoMCwgNSkpKQogIAogIGZpZwogIAp9CgpgYGAKCkFkZCBhIG5ldyBjaHVuayBieSBjbGlja2luZyB0aGUgKkluc2VydCBDaHVuayogYnV0dG9uIG9uIHRoZSB0b29sYmFyIG9yIGJ5IHByZXNzaW5nICpDbWQrT3B0aW9uK0kqLgoKV2hlbiB5b3Ugc2F2ZSB0aGUgbm90ZWJvb2ssIGFuIEhUTUwgZmlsZSBjb250YWluaW5nIHRoZSBjb2RlIGFuZCBvdXRwdXQgd2lsbCBiZSBzYXZlZCBhbG9uZ3NpZGUgaXQgKGNsaWNrIHRoZSAqUHJldmlldyogYnV0dG9uIG9yIHByZXNzICpDbWQrU2hpZnQrSyogdG8gcHJldmlldyB0aGUgSFRNTCBmaWxlKS4gCgpUaGUgcHJldmlldyBzaG93cyB5b3UgYSByZW5kZXJlZCBIVE1MIGNvcHkgb2YgdGhlIGNvbnRlbnRzIG9mIHRoZSBlZGl0b3IuIENvbnNlcXVlbnRseSwgdW5saWtlICpLbml0KiwgKlByZXZpZXcqIGRvZXMgbm90IHJ1biBhbnkgUiBjb2RlIGNodW5rcy4gSW5zdGVhZCwgdGhlIG91dHB1dCBvZiB0aGUgY2h1bmsgd2hlbiBpdCB3YXMgbGFzdCBydW4gaW4gdGhlIGVkaXRvciBpcyBkaXNwbGF5ZWQuCgo=